home *** CD-ROM | disk | FTP | other *** search
/ PC World 2003 March / PCWorld_2003-03_cd.bin / Software / Topware / activeperl / ActivePerl / Perl / eg / Windows Script Host / notepad.wsf < prev    next >
Encoding:
Text File  |  2000-08-10  |  411 b   |  18 lines
  1. <Job Id="WshShell">
  2. <script language=PerlScript>
  3.     $WshShell = $WScript->CreateObject("WScript.Shell");
  4.     $WshShell->Run("notepad", 5);
  5.     $WshShell->AppActivate("Untitled - Notepad");
  6.  
  7.     my $message = "Hello from PerlScript!\n";
  8.  
  9.     for($i=0; $i < length($message); $i++) {
  10.     $char = substr($message, $i, 1);
  11.     $WScript->Sleep(100);
  12.     $WshShell->SendKeys($char);
  13.     }
  14. </script>
  15. </job>
  16.  
  17.  
  18.